Imports System
Imports System.Text
Imports System.Collections.Generic
Imports Microsoft.Practices.EnterpriseLibrary.Configuration.Design

Partial NotInheritable Class CommandRegistrar
	Inherits Microsoft.Practices.EnterpriseLibrary.Configuration.Design.CommandRegistrar

	Public Sub New(ByVal serviceProvider As IServiceProvider)
		MyBase.New(serviceProvider)
	End Sub

	Public Overrides Sub Register()
		AddBlockCommand()
		AddDefaultCommands(GetType(ApplicationBlockSettingsNode))
	End Sub

	Public Sub AddBlockCommand()
			Dim cmd as ConfigurationUICommand = ConfigurationUICommand.CreateSingleUICommand(	ServiceProvider, _
                My.Resources.$NameWithoutDots$, _
                My.Resources.Add$NameWithoutDots$, _
                new AddApplicationBlockSettingsNodeCommand(ServiceProvider), _
                GetType(ApplicationBlockSettingsNode))
		AddUICommand(cmd, GetType(ConfigurationApplicationNode))
	End Sub
End Class